home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / prlbkxmp.lha / ch6 / relink < prev    next >
Text File  |  1991-01-08  |  370b  |  24 lines
  1. #!/usr/bin/perl
  2.  
  3. # Usage: relink perlexpr [symlinknames]
  4.  
  5. ($op = shift) || die "Usage: relink perlexpr [filenames]\n";
  6.  
  7. if (!@ARGV) {
  8.     @ARGV = <STDIN>;
  9.     chop(@ARGV);
  10. }
  11.  
  12. for (@ARGV) {
  13.     $name = $_;
  14.     $_ = readlink($_);
  15.     next unless defined $_;
  16.     $was = $_;
  17.     eval $op;
  18.     die $@ if $@;
  19.     if ($was ne $_) {
  20.     unlink($name);
  21.     symlink($_, $name);
  22.     }
  23. }
  24.